home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
prtfrm51.zip
/
FRMSRC.ZIP
/
FDEMO13.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-06-20
|
990b
|
56 lines
unit Fdemo13;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
StdCtrls, PrnWin, ExtCtrls, CB_Types;
type
TForm13 = class(TForm)
CancelBtn: TBitBtn;
Preview: TBitBtn;
PrintWin1: TPrintWin;
Panel2: TPanel;
Panel3: TPanel;
Label5: TLabel;
Shape13: TShape;
Shape14: TShape;
Shape15: TShape;
Shape16: TShape;
Shape17: TShape;
Shape18: TShape;
Shape19: TShape;
Shape20: TShape;
Shape21: TShape;
Shape22: TShape;
Shape23: TShape;
Shape24: TShape;
Bevel3: TBevel;
Label4: TLabel;
procedure PreviewClick(Sender: TObject);
private
{ Private declarations }
public
end;
var
Form13: TForm13;
implementation
{$R *.DFM}
procedure TForm13.PreviewClick(Sender: TObject);
var
i: Integer;
y: Integer;
begin
PrintWin1.BeginPrint;
PrintWin1.DrawWindow( 2, poCenter, Panel2);
PrintWin1.EndPrint;
end;
end.